Loadstar 50/050.d81/bbs lister

Commodore BASIC | 2022-08-26 | 8KB | 270 lines

5 gosub60100:clr
10 poke 53280,0:poke 53281,0:print""
20 rem bbs lister
30 rem by ted lewis
40 rem ----main menu----
50 clr:dim file$(360,1):print chr$(14)chr$(8)
60 t1$="[158][192][192][192] ":t2$=" [158][192][192][192]"
70 print"[147][194][194][211] [204]ister"spc(21)"[212]ed [204]ewis"
80 print"[158][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
90 printtab(15)"[205]ain [205]enu"
100 printtab(6)"1 - [195]reate a new file"
110 printtab(6)"2 - [215]ork on an old file"
120 printtab(6)"3 - [209]uit"
130 printtab(10)"[195]hoice?  "
140 get ge$
150 if ge$="1" then1080
160 if ge$="2" then210
170 if ge$="3" then60000
180 gosub1960
190 goto140
200 rem ----old file menu----
210 print"[147]":printtab(10)t1$"[207]ld [198]ile [205]enu"t2$
220 printtab(4)"1 - [197]dit [198]ile"
230 printtab(4)"2 - [208]rint [198]ile"
240 printtab(4)"3 - [205]ain [205]enu"
250 printtab(8)"[195]hoice?"
260 get ge$
270 if ge$="1" then330
280 if ge$="2" then1580
290 if ge$="3" then50
300 gosub1960
310 goto260
320 rem ----edit old file----
330 print"[147]":printtab(12)t1$"[197]dit [198]ile"t2$
340 printtab(4)"[197]nter file name:":so=16:gosub2290:name$=wd$
350 open 1,8,4,"0:"+name$+",s,r"
360 dct=1:x=1:gosub2020
370 if err=1 thenclose1:err=0:goto330
380 printtab(4)"[215]orking..."
390 input#1,in$
400 file$(x,0)=in$
410 if st and 64 thenclose1:close15:l=1:ct=1:goto450
420 x=x+1
430 goto390
440 rem ----screen print routine----
450 print"[147]":printtab(12)t1$"[197]dit [198]ile "t2$
460 printtab(8)"[204]isting "l"out of "x/9""
470 if cha thenprint"[147]":printtab(11)t1$"[195]hange [196]ata"t2$""
480 if file$(ct,1)="d" thenprint "[158][196][197][204][197][212][197][196][146]"
490 printtab(4)q1" - "file$(ct+q1,0)
500 if int((ct+q1)/9)=(ct+q1)/9 then530
510 q1=q1+1
520 goto490
530 printtab(4)"[195]hange? (# of entry/a[146]ll";
540 ifchathenprint"/n[146]o)":goto580
550 print")":printtab(12)"(d[146]elete/u[146]ndelete)"
560 printtab(12)"(+[146] next/-[146] previous)
570 [153][163]12)"left$it \wait if finished."
580 [161] ge$
590 [139] ge$[178]"n" [175] cha [167]q1[178]0:cha[178]0:[137]1420
600 [139] ge$[178]"+"[175]cha[178]0[167]q1[178]0:[137]700
610 [139] ge$[178]"-"[175] cha[178]0 [167]q1[178]0:[137]720
620 [139] ge$[178]"d"[175] cha[178]0 [167]edt[178]1:q1[178]0:[137]870
630 [139] ge$[178]"u" [175] cha[178]0 [167]q1[178]0:[137]890
640 [139] ge$[178]"restore" [167][160]1:[137]50
650 [139] ge$[178]"\" [175] cha[178]0 [167]q1[178]0:[137]780
660 [139] ge$[178]"a" [167]all[178]1:edt[178]1:ca[178]1:[137]1150
670 [139] ge$[178]""[167]580
680 [139] [198](ge$)[177]47 [175] [198](ge$)[179]57 [167]740
690 [137]580
700 l[178]l[170]1:[139] l[177]x[173]9 [167]l[178]1:ct[178]1:[137]450
710 ct[178]ct[170]9:[137]450
720 l[178]l[171]1:[139] l[179]1 [167]l[178]x[173]9:ct[178]x[171]8:[137]450
730 ct[178]ct[171]9:[137]450
740 edt[178]1:ca[178]1:[145] ([197](ge$)[170]1)[137]1150,1230,1250,1270,1280,1290,1310,1320,1330
750 ca[178]0:q1[178]0:[139] cha [167][153]"load":[137]470
760 [137]450
770 [143] ----append seq file----
780 [153]"load":[153][163]11)t1$"atnppend ascile"t2$
790 [153][163]4)"str$o you want to add any more to this file? (y/n)"
800 [161] ge$
810 [139] ge$[178]"n" [167]920
820 [139] ge$[178]"y" [167]edt[178]1:[137]850
830 [139] ge$[178]"restore" [167]50
840 [137]800
850 app[178]1:x[178]x[170]9:ct[178]x[171]8:[137]1130
860 [143] ----delete----
870 [139] ct[178]0 [167]file$(1,1)[178]"d":[137]700
880 file$(ct,1)[178]"d":[137]700
890 [139] ct[178]0 [167]file$(1,1)[178]"":[137]700
900 file$(ct,1)[178]"":[137]700
910 [143] ----write array to seq file----
920 [139] edt[178]0 [167]1040
930 [153]"load":[153][163]7)t1$"(NULL)ewrite str$ata ascile"t2$
940 [153][163]4)"right$nsert correct disk and press any       key to continue."
950 [161] ge$:[139] ge$[178]"restore"[167]50
960 [139] ge$[178]""[167]950
970 [159] 15,8,15,"s 0:"[170]name$[170]""
980 [160]15:[159] 1,8,4,"0:"[170]name$[170]",s,w"
990 [141]2020:[139] err[178]1 [167][160]1:err[178]0:[137]920
1000 [129] fr[178]1 [164] x
1010 [139] file$(fr,1)[178]"d" [167]fr[178]fr[170]8:[137]1030
1020 [152]1,file$(fr,0)
1030 [130] fr
1040 [160]1:[160]15:[153][163]4)"str$one. (NULL)ress any key for (NULL)ain (NULL)enu."
1050 [161] ge$:[139] ge$[178]""[167]1050
1060 [137]50
1070 [143] ----create new info file----
1080 ct[178]1:[153]"load":[153][163]9)t1$"lenreate (NULL)ew ascile"t2$
1090 [153][163]4)"valnter new file name:":so[178]16:[141]2290:name$[178]wd$
1100 [159] 1,8,4,"0:"[170]name$[170]",s,w"
1110 [141]2020
1120 ct[178]1:[139] err[178]1 [167][160]1:err[178]0:[137]1080
1130 [153]"load(NULL)umber of entries: ";ent
1140 [153][163]9)t1$"valnter (NULL)ew str$ata"t2$
1150 [153][163]4)"valnter peekpeek(NULL) name";
1160 [139] ca[178]0 [167][153]" (or (NULL)val(NULL)(NULL)(NULL)(NULL)wait):"
1170 [139] cha [176] ca [167][153]":"
1180 so[178]28:[141]2290:file$(ct,0)[178]wd$
1190 [139] all [167]ca[178]0:[137]1230
1200 [139] ca [167]750
1210 [139] file$(ct,0)[178]" " [175] app[178]1 [167]app[178]0:ct[178]ct[171]9:x[178]x[171]9:[137]780
1220 [139] file$(ct,0)[178]" "[167][160]1:[160]15:[137]1480
1230 [153][163]4)"valnter peekpeek(NULL) (NULL)umber:":so[178]30:[141]2290:file$(ct[170]1,0)[178]wd$
1240 [139] ca [167]750
1250 [153][163]4)"valnter (NULL)ser (NULL)ame:":so[178]27:[141]2290:file$(ct[170]2,0)[178]wd$
1260 [139] ca [167]750
1270 [153][163]4)"valnter (NULL)assword:":so[178]28:[141]2290:file$(ct[170]3,0)[178]wd$:[139]ca[167]750
1280 [153][163]4)"valnter (NULL)ser right$str$:":so[178]29:[141]2290:file$(ct[170]4,0)[178]wd$:[139] ca[167]750
1290 [153][163]4)"valnter peekpeek(NULL) (NULL)ysop (NULL)ame:":so[178]26:[141]2290:file$(ct[170]5,0)[178]wd$
1300 [139] ca [167]750
1310 [153][163]4)"valnter peekpeek(NULL) left$ours:":so[178]31:[141]2290:file$(ct[170]6,0)[178]wd$
1315 [139] ca [167]750
1320 [153][163]4)"valnter peekpeek(NULL) peekaud:":so[178]31:[141]2290:file$(ct[170]7,0)[178]wd$:[139]ca[167]750
1330 [153][163]4)"valnter peekpeek(NULL) str$istance:":so[178]29:[141]2290:file$(ct[170]8,0)[178]wd$
1340 [139] ca [167]750
1350 [139] all [167]all[178]0:[137]750
1360 [153] "right$s everything (NULL)(NULL)? [(NULL)/(NULL)]"
1370 [161] ge$
1380 [139] ge$[178]"y"[167]1420
1390 [139] ge$[178]"n"[167]cha[178]1:[137]470
1400 [139] ge$[178]"restore"[167][160]1:[137]50
1410 [137]1370
1420 [139] app[178]1 [167]app[178]0:ent[178]ent[170]1:cha[178]0:[137]780
1430 [152]1,file$(ct,0)[170][199](13)[170]file$(ct[170]1,0)[170][199](13)[170]file$(ct[170]2,0)
1440 [152]1,file$(ct[170]3,0)[170][199](13)[170]file$(ct[170]4,0)[170][199](13)[170]file$(ct[170]5,0)
1450 [152]1,file$(ct[170]6,0)[170][199](13)[170]file$(ct[170]7,0)[170][199](13)[170]file$(ct[170]8,0)
1460 ent[178]ent[170]1:[137]1130
1470 [143]----print file menu----
1480 [153]"load":[153][163]9)t1$"(NULL)rint ascile (NULL)enu"t2$
1490 [153][163]4)"1 - (NULL)rint ascile"
1500 [153][163]4)"2 - (NULL)ain (NULL)enu"
1510 [153][163]8)"lenhoice?"
1520 [161] ge$
1530 [139] ge$[178]"1" [167]prt[178]1:[137]1580
1540 [139] ge$[178]"2" [167]50
1550 [141]1960
1560 [137]1520
1570 [143]----print file----
1580 [153]"load":[153][163]11)t1$"(NULL)rint ascile"t2$
1590 [139] prt [167]n1$[178]name$:[137]1610
1600 [153][163]4)"valnter file name:":so[178]16:[141]2290:n1$[178]wd$
1610 [159] 1,8,4,"0:"[170]n1$[170]",s,r"
1620 [141]2020
1630 [139] err [167]err[178]0:[160]1:[137]1580
1640 [153][163]4)"valnter header:":so[178]30:[141]2290:head$[178]wd$
1650 [153][163]4)"atnre you using fanfold or single         sheet paper? (f/s)"
1660 [161] ge$:[139] ge$[178]"restore"[167][160]1:[137]50
1670 [139] ge$[178]"f"[167]fan[178]0:[137]1700
1680 [139] ge$[178]"s"[167]fan[178]1:[137]1700
1690 [137]1660
1700 [153][163]4)"(NULL)ine up paper and press any key.":page[178]1
1710 [161] ge$:[139] ge$[178]""[167]1710
1740 [159] 4,4,7
1750 [152]4," peekpeek(NULL) (NULL)ister : "head$
1760 [152]4," (NULL)age: ";page
1780 [141]2180
1810 count[178]1
1820 [132]1,a$,b$,c$,d$,e$,f$,g$,h$,i$
1830 [139] st [175] 64 [167]cl[178]1
184